home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / divers-1.dem < prev    next >
Text File  |  1999-09-16  |  1KB  |  46 lines

  1.  
  2. str_l=list();
  3.  
  4. str_l(1 )=['n=16;';
  5.        'rect=[-n,-n,n,n];';
  6.        'plot2d(0,0,[-1],''012'',''leg'',rect);';    
  7.     'xclip(''clipgrf'');';
  8.        'x=[-1 1 1 -1 -1]'';y=[-1 -1 1 1 -1]'';';
  9.        'xx=x*(n-1);yy=y*(n-1);';
  10.        'for k=2:n,';
  11.        '  xx=[xx,x*((n-k))]; yy=[yy,y*(n-k)];';
  12.        'end;';
  13.        'c=0:(n-1);';
  14.        'xfpolys(xx,yy,c);xclip();'];
  15.  
  16. str_l(2) =['rect=[0,0,100,100];';
  17.        'plot2d(0,0,[-1],''012'',''leg'',rect);';
  18.     'xclip(''clipgrf'');';
  19.        'x=[0 25 25  0 0]'';y=[0 0 25 25 0]'';d=25*[1 1 1 1 1]'';';
  20.        'xx=[];yy=[];i=0;';
  21.        'for k=1:4,';
  22.        ' for l=1:4,';
  23.        '  i=i+1;';
  24.        '  xx=[xx,(l-1)*d+x];yy=[yy,y+(k-1)*d];';
  25.        ' end,';
  26.        'end,';
  27.        'xfpolys(xx,yy,(1:16));xclip();'];
  28.  
  29. str_l(3)=['plot2d(0,0,[-1],''012'',''leg'',[0,0,30,20]);';
  30.     'xclip(''clipgrf'');';
  31.        'x=[1 3 3 1 1]'';';
  32.        'y=[0 0 1 1 0]'';';
  33.        'd=4*[1 1 1 1 1]'';';
  34.        'xx=[x,x+d,x+2*d,x+3*d,x+4*d,x+5*d];';
  35.        'yy=[y,5*y,2*y,10*y,8*y,6*y];';
  36.        'xfpolys(xx,yy,2*[1 2 3 4 5 6]);xclip();'];
  37.  
  38. str_l(4)=['plot2d(0,0,[-1],''032'',''leg'',[-1.5,-1.5 ,1.5,1.5]);';
  39.     'xclip(''clipgrf'');';
  40.        'alls=[-1,1,2,2,0,64*90;';
  41.        '      -1,1,2,2,64*90,64*(30);';
  42.        '      -1,1,2,2,64*(120),64*(70);';
  43.        '      -1,1,2,2,64*(190),64*(360-190)];';
  44.        'xarcs(alls'',[1,3,5,7]);xclip();'];
  45.  
  46.